home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / DOD-ASFP.ZIP / ADVSTATS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-08-10  |  5KB  |  141 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     BigStr   BIGSTR001
  25.     BigStr   BIGSTR002
  26.  
  27. ;------------------------------------------------------------------------------
  28.  
  29.     PrintLn "@CLS@@X08─  -- -─────────────────@X04─@X0C─[  P@X04C@X08board @X0CA@X04d@X08vanced @X0CS@X04t@X08ats  @X0C]-@X04─@X08──────────────────- --"
  30.     PrintLn ""
  31.     PrintLn "@X08   ─@X04─@X0C─[@X0FF@X07ir@X08st @X0Fd@X07at@X08e @X0Fy@X07ou @X0Fc@X07al@X08led @X0Ft@X07he @X0Fs@X07ys@X08tem.....................            @X0C]─@X04─@X08─"
  32.     PrintLn "@X08   ─@X04─@X0C─[@X0FS@X07ys@X08Op @X0Fp@X07ag@X08es @X0Fy@X07ou@X08've @X0Fr@X07eq@X08uested.........................            @X0C]─@X04─@X08─"
  33.     PrintLn "@X08   ─@X04─@X0C─[@X0FG@X07ro@X08up @X0Fc@X07ha@X0Fts y@X07ou@X08've @X0Fp@X07ar@X08ticipated @X0Fi@X07n@X08...................            @X0C]─@X04─@X08─"
  34.     PrintLn "@X08   ─@X04─@X0C─[@X0FC@X07om@X08ments @X0Fy@X07o@X08u've @X0Fl@X07ef@X08t.................................            @X0C]─@X04─@X08─"
  35.     PrintLn "@X08   ─@X04─@X0C─[@X0F2@X0740@X080 @X0Fb@X07ps @X0Fc@X07on@X08nnecs....................................            @X0C]─@X04─@X08─"
  36.     PrintLn "@X08   ─@X04─@X0C─[@X0F9@X0760@X080 @X0Fb@X07ps @X0Fc@X07on@X08nects....................................            @X0C]─@X04─@X08─"
  37.     PrintLn "@X08   ─@X04─@X0C─[@X0F1@X0744@X0800 @X0Fb@X07ps @X0Fc@X07on@X08nects...................................            @X0C]─@X04─@X08─"
  38.     PrintLn "@X08   ─@X04─@X0C─[@X0FS@X07ec@X08urity @X0Fv@X07io@X08lations..................................            @X0C]─@X04─@X08─"
  39.     PrintLn "@X08   ─@X04─@X0C─[@X0F'@X07No@X08t @X0Fr@X07eg@X08istered @X0Fi@X07n @X0Fc@X07on@X08ference' @X0Fw@X07ar@X08nings..............            @X0C]─@X04─@X08─"
  40.     PrintLn "@X08   ─@X04─@X0C─[@X0FT@X07im@X08es @X0Fy@X07ou@X08r @X0Fd@X07ow@X08nload @X0Fl@X07im@X08it @X0Fh@X07as @X0Fb@X07ee@X08n @X0Fr@X07ea@X08ched...........            @X0C]─@X04─@X08─"
  41.     PrintLn "@X08   ─@X04─@X0C─[@X0F'@X07Fi@X08le @X0Fn@X07ot @X0Ff@X07ou@X08nd@X0F' w@X07ar@X08nings............................            @X0C]─@X04─@X08─"
  42.     PrintLn "@X08   ─@X04─@X0C─[@X0FP@X07as@X08sword @X0Fe@X07rr@X08ors @X0Fy@X07ou@X08've @X0Fh@X07ad@X08...........................            @X0C]─@X04─@X08─"
  43.     PrintLn "@X08   ─@X04─@X0C─[@X0FV@X07er@X08ify @X0Fe@X07rr@X08ors @X0Fy@X07ou@X08've @X0Fh@X07ad@X08.............................            @X0C]─@X04─@X08─"
  44.     PrintLn ""
  45.     PrintLn "@X08─  -- -─────────────────@X04─@X0C─[  b@X04y @X0CL@X04a@X08rs @X0CU@X04l@X08rich // dφD  @X0C]-@X04─@X08──────────────────- --  ─"
  46.     PrintLn "@X07"
  47.     PrintLn "@X07"
  48.     PrintLn "@X07"
  49.     AnsiPos 61, 3
  50.     Print "@X0F" + String(U_Stat(1))
  51.     AnsiPos 61, 4
  52.     Print "@X0F" + String(U_Stat(2))
  53.     AnsiPos 61, 5
  54.     Print "@X0F" + String(U_Stat(3))
  55.     AnsiPos 61, 6
  56.     Print "@X0F" + String(U_Stat(4))
  57.     AnsiPos 61, 7
  58.     Print "@X0F" + String(U_Stat(7))
  59.     AnsiPos 61, 8
  60.     Print "@X0F" + String(U_Stat(8))
  61.     AnsiPos 61, 9
  62.     Print "@X0F" + String(U_Stat(9))
  63.     AnsiPos 61, 10
  64.     Print "@X0F" + String(U_Stat(10))
  65.     AnsiPos 61, 11
  66.     Print "@X0F" + String(U_Stat(11))
  67.     AnsiPos 61, 12
  68.     Print "@X0F" + String(U_Stat(12))
  69.     AnsiPos 61, 13
  70.     Print "@X0F" + String(U_Stat(13))
  71.     AnsiPos 61, 14
  72.     Print "@X0F" + String(U_Stat(14))
  73.     AnsiPos 61, 15
  74.     Print "@X0F" + String(U_Stat(15))
  75.     BIGSTR001 = "HiT ENTER TO CONTiNUE"
  76.     INTEGER003 = 20
  77.     INTEGER002 = 30
  78.     INTEGER001 = 1
  79.     While (BOOLEAN001 == 0) Do
  80.         AnsiPos INTEGER002, INTEGER003
  81.         If (INTEGER001 + 2 * 3 > Len(BIGSTR001)) INTEGER004 = -1
  82.         If (INTEGER001 == 1) INTEGER004 = 1
  83.         INTEGER001 = INTEGER001 + INTEGER004
  84.         BIGSTR002 = "@X08" + Mid(BIGSTR001, 1, INTEGER001 - 1) + "@X07" + Mid(BIGSTR001, INTEGER001, 2) + "@X0F" + Mid(BIGSTR001, INTEGER001 + 2, 2) + "@X07" + Mid(BIGSTR001, INTEGER001 + 2 * 2, 2) + "@X08" + Mid(BIGSTR001, INTEGER001 + 2 * 3, Len(BIGSTR001))
  85.         DispStr BIGSTR002
  86.         If (Inkey() == Chr(13)) BOOLEAN001 = 1
  87.     EndWhile
  88.     AnsiPos INTEGER002, INTEGER003
  89.     DispStr Space(79)
  90.     Stop
  91.  
  92. ;------------------------------------------------------------------------------
  93. ;
  94. ; Usage report (before postprocessing)
  95. ;
  96. ; ■ Statements used :
  97. ;
  98. ;    2       Goto 
  99. ;    9       Let 
  100. ;    13      Print 
  101. ;    20      PrintLn 
  102. ;    4       If 
  103. ;    1       Stop
  104. ;    2       DispStr 
  105. ;    15      AnsiPos 
  106. ;
  107. ;
  108. ; ■ Functions used :
  109. ;
  110. ;    1       -
  111. ;    3       *
  112. ;    27      +
  113. ;    1       -
  114. ;    3       ==
  115. ;    1       >
  116. ;    1       !
  117. ;    2       Len(
  118. ;    5       Mid()
  119. ;    1       Space()
  120. ;    1       Chr()
  121. ;    1       Inkey()
  122. ;    13      String()
  123. ;    13      U_Stat()
  124. ;
  125. ;------------------------------------------------------------------------------
  126. ;
  127. ; Analysis flags : No flag
  128. ;
  129. ;------------------------------------------------------------------------------
  130. ;
  131. ; Postprocessing report
  132. ;
  133. ;    0       For/Next
  134. ;    1       While/EndWhile
  135. ;    0       If/Then or If/Then/Else
  136. ;    0       Select Case
  137. ;
  138. ;------------------------------------------------------------------------------
  139. ;                 AEGiS Corp - Break the routines, code against the machines!
  140. ;------------------------------------------------------------------------------
  141.